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FORTH 
NOVIX 4016 
QUANO LE LANGAGE MACHINE FAIT UN PAS VERS FORTH 


par Marr PETREMANN 


Le traitement parrallèle de L'information, on t vient, Le 
premier micro-ordinateur à technologie RISC vient de sortir 
en Grande Bretagne: L'ARCHIMEDES d'ACORN. Les ue 
également s'adaptent: OCCAN et Les Transputers sur T800-30. 
Somes-nous à un nouveau tournant de La micro-informatique. 
Peut-être, si L'on considère Les performances du traitement 
pirattetes pouvez-vous déjà mettre aux oubliettes votre PS 
0346 et son 05/2. 


Depuis HE la Littérature informatique parle de traitement 
parrallèle, il était temps qu'un micro-processeur 
exploitant cette technologie apparaisse dans un produit 
commercialisé. Mais La vraie surprise réside surtout dans 
Le jeu d'instructions de ce composant révolutionnaire, Le 
Langage FORTH. 


Le EU TOREET NOVIX NC 4016 est construit à partir de 
la techno ue RISC. De nombreux articles ont déja traité 
ce sujet, dont MICRO-SYSTEMS récemment. Le terme RISC est 
L'abréviation de ’Reduced Instruction Set Code'. Un aicro- 
processeur à technologie RISC a moins d'instructions qu'un 
micro-processeur conventionnel. Pratiquement toutes Les 
instructions internes sont traitées en parralléle. 


Le NC 4016 est constitué de 4000 portes logiques, soit 
16000 transistors CMOS, ce qui est peu comparè à un hicro- 
processeur comme Le 280 qui compte pratiquement dix fois 
plus de portes logiques. La faible consommation électrique 
du NC 4016 Le rend exploitable sur des systèmes portables 
alinentés par batterie. Sa simplicité architecturale Lui 
permet d'exécuter La majorité des instructions élémentaires 
en un seul cycle machine, certaines instructions FORTH 
pouvant étre combinées et exécutées en un seut cycle, La 
finalité du NC 4016 est de réconcilier. système et programme 
en optinisant Les sous-programmes. 


Le NC 4016 utilise deux Lis et deux pain ieuns de pile. 
Toutes Les MARQUE sont exécutées sur La pile de données 
et le déroulement du programme est contrôlé par La pile de 
retour, Celle-ci a une capacité de 256 éléments externes et 
un 257ème élément interne qui est un registre pointant Le 
sogmet de La pile de retour. La qe de données externe à 
une capacité de 256 éléments et Les deux éléments figurant 
au sommet de La pile étant dans Les registres 1 et N, soit 
258 éléments au total. 


Avec Le NC 4016, La mémoire est adressée par mots et non 
par octets, un Keots représente deux Koctets. L'accès à La 
mémoire est assuré par un vrai bus de données 16 bits et 
s'étend sur 64 Knots (128 Koctets). Cet AE ménoire jai 
être étendu en utilisant Le port 5 bits X comme sélecteur 
de page mémoire, La capacité totate pouvant alors atteindre 
32 pages de 64 Kmots (soit 4 Moctets). 


MEMOIRE 
PRINCIPALE 
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Les deux ports d'entrée-sortie B et X sont contrôlés par 
un jeu de quatre registres: 


- registre de données 

- registre de masquage 

- registre de direction | : 

- registre de contrôle à trois états (Tri-state Control) 
Chaque bus, mémoire principale, pile de données, pile de 
retour, et ports d'entrée-sortie, peut être activé de 
manière indépendante à chaque cycle d'hortoge. 


Les appels et Les retours d'une définition de type deux- 
TUE ne prennent qu'un ou deux cycles d'horloge, ainsi 
es AU modulaires sont exécutés très rapidement. 
tes nombres compris entre -1 et 32 sont générés en un seul 
cycle, tous Les autres nombres 16 bits signés Le sont en 
deux cycles. AUS d'un Ssous-programme ne prend qu'un 
cycle d'horlage. Le retour de sous-programme ne requiert 
aucun cycle d'horloge. 


Les registres internes du NC 4016 sont nombreux et 
permettent un contrôle optimal des données placées sur La 
pile, en mémoire ou vers Les parts d'entrée-sortie: 


ï Elément du somnet de La pile de données 

N Second élément de La pile de données | 

NC Bit de retenue du second élément de La pile 

dk pointeur combiné de pile de données{K) ou 
retour(J) 

I Elément situé au sommet de La pile de retour 

P CASTEUr programme, Lecture seulement 

-1 booléen "vrai", Lecture seulement => 

MD MultiplicationfOivision, registre d'utilisation 
temporaire 4 ne : 

5R Racine carrée, registre d'utilisation temporaire 

Bport Registre de données du port 8 


B-Mask Registre de masquage, 1 = invalide 

B-1/0 QUE direction, 1 = sortie | 

B-TRI Mode trois états, 1 = trois états en écriture 

kport Registre de donnèes du port X 

X-Mask Registre de masquage, 1 = invalide 

X-L10 HR direction, 1 = sortie : 

X-TRI Mode trois états, 1 = trois états en écriture 

TIMES Identique au registre I, mais contrôle La 
répétition de La dernière instruction avec auto- 
décrémentation de son contenu 


Le port B sert essentiellement à cinq avec un 
environnement matériel tel que cartes d'extensions 
communication  asynchrone) où des  péripériques 
d'acquisition de données convertisseur AN N/A, souris, 
crayon optique, synthèse vocale, etc...). 


CODAGE DES INSTRUCTIONS OÙ NC 4016 


Les instructions exécutables par Le micro-processeur 
NC 40%6.5ont classées en huit catégories. La QUTNEE 
d'une instruction dépend de La valeur des quatres bits de 
goids fort d'une instruction: 


a EU QUUQUE 


etes ee 2 
22 DD ED © 
ED — 2 - 2 
D D Ro 2 
DC DE 2€ DC CU © OU € 
PE 2 2 D Er EX EU 
ner Re 3e Sera a re ten 
2 2 D XX Ci © EE > 
»C 2 26 2€ Ci Ou Qu x Cu 
2e 2 26 € CC  @ >< Qu 
Re © XX D 
eq es (2 CU >< © 
© © EU CC 
rc @ © à © 
es © © 


= qe re Os D Où 


mémoire | 


as bits d'adresse x: bits de contrôte L: bits Litéraux 


- L'instruction CALL est implicite. Elle est indiquée 
par La mise à zéro du bit de poids Le plus fort du contenu 
ue FE 16 bits et RFEUER ELLE dr 
etre Fleur esta DUT UETL del pour Ebtehr un 
adresse physique réelle, Un Sous-programme commençant 


COR 


toujours à une adresse paire. Exempte: 


31%40h signifie CALL 3140h 
Cexécution du s-prg commençant à La cellule 3140h) 
(cellule 3140h correspond à adresse physique 6280h) 


- Les instructions arithmétiques sont codifiées à HAE 
du contenu des bits b9-b11 pour Le code de SH ion à 
exécuter Hi L'unité arithmétique et Logique CALU) et Les 
Ji b7-b8 pour La Sélection des registres d'entrée- 
sortie. 


L'unité arithaétique et cpu réalise en plus des 
opérations d'addition et de soustraction, Les opérations de 
sultiplication, de division et d'extraction de racine 
carrée sur 16 bits. Le principal registre source est T pour 
l'élément figurant au sommet de La pile de données. Le 
registre Ssoufce secondaire est sélectionné parais Les 
nue N, MD ou SR en fonction des opérations à 
exécuter. Le résultat de L'opération est cn dans Le 
registre T, c'est à dire déposé au sommet de La pile de 


ELLE 


El 


2 F 
CODE: fit É 
ne | Fu EE Eu CE ur 
d 


CA 


Détail de f{ALU) indiqué par b11-b9 


bits 11 Opération 


a55e T 
AND Ÿ 


me D. EEE — LE — 2 


De de f{Y), entrées en T et Y, sortie en T, indiqué par 


bits 8 


Exenple de codage de trois instructions élémentaires: 


+ 1000 1000 0007 0000 soit 8819h 
- 1000 1100 0007 0000 sait aC10h 
OR 1000 0110 0001 0000 soit 8610h 


L'anstruction dite "d'assemblage" chargée de conpiler une 
fonction sera de La forme: 


: MI CREATE , 00€) @ , ; 
HEX 6810 1HI +, 

8C10 HI -, 

9610 MI OR, DECINAL 


Cette définition est reprise du F83 accompagnant La carte 
N81000 pour IBM PC et compatibles et équipée du NC4016. 


- Les instructions de branchement IF, ELSE et de boucte 
LOUP indiquent un branchement sur Les huits octets de 
EE faible vers La cellule correspondant à cette valeur. 

e déplacement possible est situé dans L'intervalle- 
20400..2047d, valeurs indiquant un déplacement en nombre 
de cellules (paires d'octets). 


- Les valeurs Litérales sont déclarées à l'aide d'une 
combinaison de bits dont Les bits b0-b4 indiquent La 
valeur à déposer sur La us Toutes Les valeurs 
Littérales comprises entre 0 et 31 peuvent être déclarées 
et traitées en un seul cycle d'horlage. Les valeurs 
Littérales supérieures à 32 sont traitées par empilage du 
contenu d'une cellule, excepté La valeur -1 qui est 
extraite d'un registre spécialement affecté à cette 
valeur. Ainsi, Le FORTR du NC4016 n'a pas besoin de 
définir Les constantes TRUE, FALSE, 0, 1, 2 et 3 qui 
existent dans Le F83 MSD0S. Exemple, La compilation de: 


574 


s'exécute en trois cycles d'horloges et n'occupe que trois 
mots C6 octets) dans La mémoire du NC 40161! 


Liste des 40 primitives FORTH du NC 4016: 


ACCES MEMOIRE : 

@ empile une valeur dont L'adresse est pointée par Le 

sommet de La pile 

range en mémoire une valeur dont L'adresse est au 

sommet de La pile | 

an@ empile depuis un a RtaATe 

nn! range dans un pseudo-registre 

I& empile depuis un FRjESITE interne 

Il range dans un registre 1nterne 

ne me depuis L'adresse pointée par L'adresse 16 
bits qui Suit cette instruction. 

nn@ empile un Litéral 5 bits (pseudo-constante) 

an! range un Litéral 5 bits 


ARITHMETIQUE ET LOGIQUE : 
+ addition en complément à deux 
+C addition avec retenue pour traitement de nonbres 
32, 48, 64 bits ou plus 
= Soustraction en complément à deux 
-C soustraction avec retenue 
OR ou inclusif Logique bit à bit 
AND et logique bit à bit | 
XOR ou sien bit à bit 
2! décalage arithabtique à draite 
2* décalage arithmétique à gauche ; 
DC remplace Le nombre située au sommet de La pile par 
flag bootéen vrai si nbr ( 0 | 
D2! décalage arithmétique 32 bits à droite 
D2* décalage arithmétique 32 bits à gauche 
#' pas de multiplication 
#- multiplication signée 
*#F multiplication fractionnaire 
1° pas de division 
I" dernier pas de division 
S' pas d'extraction de racine carrée 


STRUCTURES DE CONTROLE: : 

if saut conditionnel si sommet de pile est nul 

else saut inconditionnel / 

floop Saut avec décrénentation de compteur si pas nul 

times initialise Le compteur de répétition d'instruc- 
tion; nbr répétition prélevé sur sommet de pile 

Call appel sous-progranme (optimisé à 1 cycle machine) 

exit retour de s0us-programme 


MANIPULATION DE LA PILE: | 

dup copie du sommet de La ji . 

érop dépile Le contenu du sommet de La pile 

> transfert pile de retour vers pile de données 
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r@ copie pile de retour vers pile de données 
#1 copie index de boucle au sommet de pile de donnèes 
or transfert pile de données vers pile de retour 


Certaines instructions peuvent étre combinées en un seul 
code, exemple: 


@+ 6- @tc @-c 
@or @xor @and 


Le nombre de combinaisons de primitives est de 123. La 
Liste détaillée de ces instructions est disponible dans La 
documentation du NC 4016. 


UTILISATION PRATIQUE OU NC 4016: LA CARTE NB 4100 


Afin de réaliser un articte objectif, nous nous sommes fait 
pis par La société M.I.E.L. une carte NB 4100 équipée du 
C 4016. Je remercie au passage Mr RENAUDIN pour 50n 
aieable collaboration. 


La carte NB 4100 est une carte d'extension au format IBM 
enfichable sur un des connecteurs d'extension de La carte 
mère du système IBM PC ou compatible. La carte est insérée 
bien évidemment AU Le re hôte est hors tension. 
Les essais de La carte ont été réalisés sur deux systèmes 
différents: un TOTO us de 540 K de RAM, un 
20 Moctets; un second Système BONDMELL PC avec seulement 
256 K de RAM, deux Lecteurs de disquette. La mise en route 
a'a posé aucune difficulté sur ces deux systèmes. 


disque dur 


La carte NB 4100 est equipée, outre son miCro-processeur 
NC 4016, d'une mémoire RAM de 64 Kmots (128 Koctets), un 
a RAN supplémentaire de 8 Kmots est utilisée pour tes 
piles de données et de retour et permet Le traitement 
multi-tèches jusqu'à 32 tâches indépendantes. La 
configuration de cette carte permet de reprendre La main 
sur Le système hôte tout en laissant Le NC 4016 continuer 
Le traitement en cours. 


Deux manuels accompagnent La carte: 


- NOVIX USER'S GUIDE: guide d'utilisation et détails 
CERN concernant La cafte NB 4100 et du NC 4016 

- NOVIX EXPRESS REFERENCE MANUAL: manuel de référence du 
vocabulaire FORTH 83-Standard et de L'éditeur de bloc plein 
écran NOVIX EXPRESS. Ce manuel est complété par une 
adaptation de L'ouvrage de C.H..TING INSIDE F83'. 


On ne peut que pre Le manque de détails documentaires 
concernant Le NC 4016. Un vrai TUTORIAL aurait été 
souhaitable avec un produit aussi performant. La 
documentation en L'état n'est abordable que par un 
professionnel de L'informatique et disposant d'une certaine 
pratique de F83. 


Une disquette S'174 au format IBM PC (360K) contient Le 
système d'exploitation NOVIX, Le Langage FORTH, Le module 
de communication, des utilitaires divers, un méta- 
générateur et Les principaux fichiers sources. 


La communication entre Le système IBM PC et La carte NB 
100 est activée en tas Le programme TALK4100.C0M 
fourni avec La disquette. Ce re contient Le système 
d'exploitation propre à La carte NB 4100. La communication 
est réalisée par utilisation des aots PC!, PI, PC@ et P& 
normalement implantés dans Le F43 de Laxen et Perry. 


ün système de menu par touches de fonctions permet de 
sélectionner diverses options telles que: 


- F1 affiche un menu d'aide. 

- F2 réinitialise La carte NB 4100. Le 

- F3 est similaire à F2, mais active après initialisation 
un A Er précompilé disponible dans Le fichier 
KNRL410Û.N41, Ce programme provient de La méta-génération 
d'un programme défini par L'utilisateur. 

- F4 bascule de contrôle MS OOS-NDVIX. 

- FS définit et ouvre un fichier de sauvegarde d'une 
session de travail. 

- F6 permet Le chargement et l'exécution d'une suite 
d'instructions préalablement sauvegardée dans un fichier. 
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Cette interprétation s'interrompt en fin de fichier. 

- F7 permet d'utiliser un code de contrôle sans 
l'interpréter. 

- F8 Sauvegarde une séquence de frappe de commandes au 
CRUPE dans un fichier, Ce fichier peut être réutitisé 
par F6. | 

- F9 Lance L'éditeur de fichiers NOVIX. | 
Ant quitte Le programme TALK4100 et rend La main à 


Pour donner Le contrôle du système au NC 4016, on active 
La fonction F2. Le programme de communication MSO0S-NOVIX 
est chargé. Ensuite, L'a pu sur F4 bascule Le contrôle du 
moniteur de MSDOS au NOVIX. Pour confirmation, un appui 
sur La touche RETURN affiche: 


Novix ok) 


Vous jou commencer à travailler directement avec Le 
NC 4016. Tout ordre tapé au clavier est interprété ou 
compilé directement par Le programme situé dans La ménoire 
vive de La carte NB 4100 et sous contrôle du NC 4016. 


Pour conserver une trace des manipulations effectuées, on 
active F4 puis F5. On précise Le nom du fichier destiné à 
recevoir Les caractères affichées et on rappuie sur F4, À 
partir de maintenant, toute exécution d'instruction 
provoguant un affichage sera conservée po analyse 
éventuelle. dans Le fichier texte créé. Exemple de session 


de travail: 
hex Novix ok CHEX) ) 
see dise 
4056 1745 call 1745 CR 
4057 8050  DUP 
..Ptc... 
405€ 9056 CIF) 4056 


405F 8E30  OROP RETURN 
Novix ok CHEX) ) 


Les Va sources sont écrits sous forme de blocs de 
16 Lignes de 64 caractères. Une instruction INCLUDE 
JE Le chargement et La compilation d'un fichier de 

Locs. Un fichier source peut être compilé depuis un autre 
fichier par une AU INCLUDE intégrée au fichier 
appelant. Le FORTH NOVIX accepte également d'exécuter des 
commandes CR MEEU d'un fichier ASCII, un peu à La 
aanière de TURBN-Forth. 


La syntaxe du Langage FORTH utilisé par La carte NB 4100 
est celle définie par Le Standard 43 el La version FORTH 
est une adaptation de celle écrite par Laxen et Perry, La 
AE utilisée à ce jour. Dans cette version, une primitive 
ORTH est définie à partir de L'assembleur NOVIX: 


CODE OROP  (nt-- ) drap, exit! END-CODE 
CODE OUP Çnt--n10n1) dup, exit! END-CODE 
CODE SWRP {ntn2 -- n2 n1 1 swap, exit! END-CODE 
CODE OVER Ont n2-- ntn2nt) over, exit! 
END-CODE 
Voici tes définitions équivalentes définies dans Le 


programme source du 


Langage FORTH destiné au micro- 
processeur 8086: 


CODE DROP  (S n1 -- ] AX POP NEXT END-CODE 
CODE QUP (S nt -- nt nt}  AX POP AX PUSH PUSH 
END-CODE 
COQUE _SWAP {Sat n2-- n2n1 ) OX POP AX POP 
2PUSH END-CODE 
CODE OVER (S nt n2 -- n1n2 n1 ) 
OX POP AX POP  AX PUSH 2PUSH END-CODE 


La carte NB 4100 est exploitable en plusieurs phases: 


- La phase de AU qui consiste «à définir et 
tester Ses définitions à partir d'un fichier. Cette phase 
est également celle de L'apprentissage pour ceux qui n'ont 
pas une pratique intensive du Langage FÜRTH. 


= Lo phase d'optimisation el de mise au point. C'es 
'habil aq du programme. Ün Ù soigne L'erQONOMIE € 
effectue Ce jeu d'essais habituel et l'optimisation des 


routines dont 


Le LE d'exécution est critique. On soigne 
également La présenta 


ion et La documentation. 


- La phase de méta-génération. En passant par Le méta- 
HE recrée Un programme compilé sans s'enconbrer 
es utilitaires de mise au point. La maîtrise de La méta- 
génération permet d'obtenir des rjPaRere directement 
exécutables par Le système NOVIX et très compacts donc peu 
encombrants en espace mémoire. Le mangue de précision 
concernant cette troisième étape dans La documentation nous 
a obligé à de nombreux essais avant de réussir une méta- 
ati sans erreur. Nous n'avons pas eu Le temps de 
tester une métaconpilation d'application utilisateur. 


Le temps de compilation d'un bloc provenant d'un fichier 
source est très court, mais La compilation d'un fichier 
complet est handicapée par Le Eu E d'accès au disque, car 
fitée par interruption et appe d'une fonction BIOS. 
A HE d'un disque dur est presque obligatoire pour 
développer avec aisance une application consistänte. 


Pour bien maîtriser Le fonctionnement de La carte NB 4100, 
il est nécessaire d'avoir une certaine AL du Langage 
FORTH. La syntaxe de ce DAT HE soi-disant "heraétique" 
par ceux qui n'ont fait qu'aborder Les premiers opérateurs, 
ceux de manipulation de La pile et La notation polonaise 
inverse, permet d'aborder des problèmes Logiciels dits “de 
bas niveau comme l'assemblage, ou des problèmes "de haut 
niveau" comme ceux traités par Les LL évolués et 
structurés (PASCAL, OC, MODULA-2...), Dans Le cas du 
NC 4016, Les formes ‘bas niveau" et "haut niveau’ 
s'estompent au epilt d'une performance inégatable sur 
cette gamme de matériel. 


La carte NB 4100 est destinée au développement 
d'applications nécessitant des temps de traitement Les plus 
courts possibles, Un des avantages de La carte NB 4100 est 
de permettre Le déroulement d'un programme sur La carte 
DE de revenir sous NS005 et de poursuivre un autre 
ravail 5ans LA celui de La carte. IL n'y à pas de 
collision dans La gestion des espaces mémoire du 005 ou de 
La carte, car ces espaces mémoire sont indépendants. 


LES PERFORMANCES DU NC 4016 


Les tests effectués à partir de La carte NB 4100 sont 
significatifs de La puissance du NC 4016 et rivalisent avec 
ceux effectués sur des systèmes dits ‘mini-ordinateurs". Le 
premier test est celui de La boucle à vide: 


: BOUCLE 1000 0 DD 1000 O0 O0 LOOP LOCP ; 


qui s'exécute un million d'itérations en moins de 2/10e de 

secondes. Pour indication, une boucle similaire n'exécutant 

Ji 10000 itérations en FORTH 83-Standard sous MSD0S met 
[10e de secondes. 


Pour avoir une meilleure idée des temps d'exécution, voici 
un tableau comparatif des performances d'instructions type 
entre trois micro-processeurs: 


Temps d'exécution comparatifs 
entre NC 4016 et deux micro-processeurs standards 


OPERATION 68000 
Mouvement reg. à reg. ô 
Mouvement reg.vers mém, 18 
Multiplication 74 
Division 144-162 
Appel de sous-programme 32 
Retour sou5-programne 32 
Branchement Le 


Empilage ou dépilage 


fn que générale, une définition FORTH traitée par Le 
NC 4016 sera plus rapide qu re SHTAMS 
assemblé sur un système équipé d'un 8086 ou d'un 68000. Ces 
performances doivent être tempérées 51 Les programmes font 
appel à des routines incorporées au D0S du système hôte, 


comme L'ouverture d'un fichier ou 


L'affichage d'un 
caractère, 

Le programme d'essai classique pour tester Les 
performances d'un Langage (et non d'un système) est Le 
Crible d'Eratosthène dont voici Le Listing en FORTH tel 
qu'il est exécuté par Le NC 4016 après compilation: 


\ Programme de détermination des nombres premiers 
\ situbes entre 0 et 8190: 

\_ CRIBLE 9'ERATOSTHENES 

DECIMAL. 8190 CONSTANT CLIMIT 

VARIABLE COMPTE VARIABLE [TER VARIABLE IVAL 
VARIABLE TABLE CLIMIT ALLOT 

: CRIBLINIT ? COMPTE ! TABLE CLIMIT TRUE FILL : 


ELIMINE 

BEGIN ITER @ CLIMIT > NOT 

IF. 0 TABLE ITER @ + C! THEN 

ITER @ IVAL @ + OUP ITER ! CLIMIT > UNTIL ; 
CRIBLE 


LIMIT 2 O0 TABLE 1 + C@ 
IF I OUP OUP IVAL ! + ITER ! 
ELIMINE 1 COMPTE +! THEN LOOP : 


OCRIBLE 

CR CR CR CR 25 SPACES .* CRIBLE O'ERATOSTHENES * CR 
25 SPACES ." 10 ITERATIONS * CR 25 SPACES 

." CALCULS EN COURS .... * CR CR 

3 FOR CRIBLINIT CRIBLE NEXT 

21 SPACES COMPTE @ . 

." NOMBRES PREMIERS SUR * CLIMIT . CR CR CR CR ; 


L'instruction FOR est spécifique au FORTH NOVIX nais EL 
être définie simplement en F83 (Laxen et Perry ou TURBD): 


: FOR ( 
0 EIRE DO ; IMMEOIATE 


; NEXT 
CCONPILE) LOOP ; IMMÉDIATE 


: D 


TEST D'EXECUTION DU CRIBLE 
D'ERATOSTHENES 


Système ‘ Langage Tenps en ms 


8086! S5Mhz Forth 6400 
60000! 8Mhz Forth 2700 
POP 11/73 Forth 1485 
VAX 780 C 142 


Forth 
Fortran 
Fortran 


NC 40167 8Mhz 
Sperry 1100782 
Cray-1 


On constate avec stupeur que Le NC 4016 est plus rapide 
1 VAX et à peine dix fois plus Lent qu'un CRAY-1. En 
ait, Le rapport prix/performances est incomparable. 


LE DEVELOPPEMENT LOGICIEL 


Nous ne savons pas encore grand chose des développements 
Logiciels Liés au NC 4016. Cependant, il existe déjà un 
Tiny-C écrit en FORTH NOVIX permettant à un progranneur 
non initié au FORTH is Le NC 4016. Ce Tiny-C est 
fourni avec un des produits exploitant Le NC 4016. 


LES PROCHAINS PRODUITS 


La firme NOVIX Inc à en chantier Le NC 6016 dont Les 
performances dépassent celles de L'actuel NC 4016. Dès que 
nous aurons des précisions sur cette nouvelle puce, vous 
en serez informé. 


La généralisation A EUTE à court terme de La 
technologie RISC mettra un terme à La bataille engagée par 
des produits soi-disant ‘nouveaux’ (80386 notament) et 
verra L'apparition de systèmes avec l'architecture des 
DAC OP DIRaT eur et Les De rgeRanees des minis, Le 
développement Le plus Spectaculalre 5e produir à 
certainement dans l'infographie et La génération de 
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systèmes vidéo: palettes graphiques, digitalisation 
cie numérisation vidéo en temps réel - vers Le 
magnétoscope numérique...-, Synthèse d'image, Synthèse 
sonore, systèmes experts à hautes performances, etc... 


LES PRODUITS EQUIPES DU NC 4016 


Actuellement, cinq produits équipés 
importés et conmercialisés en France: 


1) La carte NB 4200 


Carte de HQE utilisable par Liaison Série RS232 
aux vitesses de 9600, 19200 ou 28800 bauds. Est équipée 
d'une version cmFORTH sur EPROM, su mémoire initial de 
16koctets RAM, 16koctets EPROM, dkoctets RAM pour Les piles 
de données et de retour. 


du NC 4106 sont 


Des connecteurs amovibles permettent L'extension de 
L'espace mémoire principal par l'utilisateur, et chaque 
espace mémoire de pile jusqu'à 128koctets. Conçu pour Une 
utilisation simple et performante, Le NC 4016 opère sur 
AL mémoire Simultanéaent et travaille entre 8 
e ips. 


Tout système IBM PC ou compatible équipé d'un interface 
série peut être adapté à La carte. Le système hôte est 
alors utilisé comme terminal d'édition, de RATE et de 
chargement des aaqraeess source. Le Ai NOVIX.COM 
fourni sur disquette assure L'émulation du système hôte 
conne terminal via L'interface COM1. La vitesse de 
traitement dépendra du temps requis par La mémoire 
peine pour transférer Les données entre Le système 
âte et La carte NB 4200. 


2) La carte NB 4300 


Carte d'application professionnelle équipée du bus ST0, 
d'un port parrallèle 16 bits et d'une Liaison série 
permettant La connexion d'un terminal ou d'une imprimante 
strie, Elle peut être associée à d'autres cartes du mème 
type comme carte maîtresse du système ou carte esclave dans 
un environnement multi-processeur. 


La ménoire RAN système occupe 4kmots à partir de L'adresse 
tro, Le système AE en ROM soe 8Kmots à 
Lie de L'adresse 1000h. Cette zone contient Le noyau 
ORTH, La mémoire RAM affectée au dictionnaire occupe 
28kmots entre Les adresses 2000h et 7FFFh. 


Cette carte est Livrée avec Le système d'exploitation NOVIX 
EXPRESS, Le compilateur combine teen Le cas 
échéant Les instructions exécutables siaultanément, comme 
"OVER SAP -" par exemple, en une seule instruction. 
Différentes Se PLU sont possibles pour 
L'utilisation de cette carte: 


— intégrée à un système utilisant La carte NB 4300 et 
pilotant d'autres cartes via Le bus STD, à l'exception de 
cartes d'extensions RAM nécessitant un rafraichissement 
périodique. 


- une carte NB 4300 maîtresse associée à FUArUS cartes 
NB 4300 esclaves communiquant par Le bus STO. 


3) La carte NB 4100 


Carte à insérer directenent au bus d'extension du système 
IBM PC ou compatible. Cette carte dispose de sa propre 
extension mémoire et Le NC 4016 travaille indépendannent du 
micro-processeur éguipant Le système hôte. 


Cette carte dispose d'una capacité RAM de 6GéKmots 
TER accessibles pa Le NC 4016. Une zone RAM de 
8kmots indépendante est utilisée pour tes piles de donnèes 
et de retour et permet Le traitement multi-tâches jte 
32 tâches indépendantes. En outre, La configuration de 
cette carte permet de COURNE La main sur Le système hôte 
tout en taissant Le NC 4016 continuer Le traitement en 
Cours. 
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4) La carte NB 4000 


Carte de développenent Sa A à connecter en série via 
Le port COM1 à pes BH PC ou compatible. Fonctionne 
à l'aide du Logicie DRE Cette carte est orientée 
vers Les applications multi-tâches, génération de signaux, 
acquisition de données, etc... 


Le Logiciel intégré et très compact  oplinise 
SCORE ELA votre programme en combinant Les mots 
pouvant être rassemblés une seule instruction. 


Le système occupe 4 Kaots en RAM, Le système 
d'exptoitation 4 Kaots en ROM. Le dictionnaire dispose de 
24 Kmots en RAM entre Les adresses 2000h et 7FFFh. 


5) Station autonome de développement ND 4000 


Ce système intègre La carte NB 4000, un Lecteur de 
disquette 5'1/4 360k, un disque dur 10 Moctets et une 
alimentation AA de 65 Watts. Le tout est Livré 
dans un coffret métallique. Le tr se raccorde à 
n'importe Hi type de terminal par 
Liaison RS232. 


L'environnement de développement polyFORTH cOqLe inclus 
notamment un compilateur optimiseur, La gs ion nulti- 
tâches, interpréteur FORTH interactif, un Éditeur, méta- 
compilateur, extension mathématique avancée. 


fintermédiaire d'une 


Deux jeux de connecteurs donnent accès au bus d'adresse 16 
bits, bus de données 16 bits, bus 8 16 bits, bus X 5 bits, 
bus de D Lent 16 bits, toutes Les Lignes 
d'horloge système et de validation. 
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MORE ON NC4000 Vot I à IV 

FOOTSPEPS IN AN EMPTY VALLEY par C.H. TING 
MANUEL F83-Standard pour HA CP/M et MSD0S 
pi M,PETREMANN, J.M.PREMESNIL et M.ZUPAN 

d: LOISITECH 


Logiciels: FORTH 83-Standard “Public Domain" 
version Laxen et Perry 


NOVIX EXPRESS SYSTEM 
TURBO-Forth 83 Standard ASSOCIATION JEDI 
PRIX UNITAIRES HT DES PRODUITS EQUIPES DU NC 4016: | 


Livres: 


NB 4100 11490 Fr 
NB 4200 5590 Fr 
NB 4300 9950 Fr 
NB 4000 16600 Fr 
NO 4000 25120 Fr 


Prix carte + Logiciel (Le cas échéant). 


Pour Les adhérents de JEUDI intéressès par un de ces 
produits, prendre contact avec Le secrétaire pour monter 
un achat groupé et bénéficier d'une remise auprés de La 
Sté MIEL. = 


COMMUTATION CARTE MONO - CARTE CGA 


20 OR 
SWITCHES L! 
3 MODE \provoque effacement 
; \ avec sélection mode couleur 


par Marc PETREMANN 
pour TURBO-Forth 


Ma vocation première était, avant l'informatique, le 
dessin. Et bien entendu, je ne manque jamais d'appliquer la 
formule: "un bon dessin vaut mieux qu'un long discours". 
Comme j'ai le crayon paresseux, je préfère faire exécuter 
les croquis et les schémas par mon ordinateur. Mais on ne 
passe pas d'un T07 (fort bon au demeurant s'il est équipé 
de COLORPAINT) à un compatible IBM strictement minimal. 


Et comme toujours, quand on veut tirer plus de possibilités 
de son micro, on fait l'acquisition de cartes d'extensions. 
Je me suis donc fendu d'une carte CGA (pour 390 Fr chez AZ 
COMPUTER, 99 rue Balard dans Île 15 arrd, c'est presque 
donné). 


Hélas, les ennuis commencent quand je veux essayer cette 
merveille de technologie asiatique toute garnie de puces et 
d'idéogrammes à Ta signification totalement hermétique: 
RIEN! Coup de téléphone, passage chez AZ, essai sur leur 
micro: là oui, ça fonctionne. 


Re-retour à mon domicile et réinsertion de ladite carte. 
Re-RIEN!. Bon, un petit coup de fil; réponse: 

- avez-vous regardé Tes switches (interrupteurs pour les 
puristes) sur la carte mère? 

- Ah bon, il y a des contacteurs (switches pour les 
franglistes impénitents)? Eh bien pas chez moi! 

- Avez-vous bien regardé? 

- Ben oui, partout. 

Le désespoir me guette. Aurait-je le seul compatible non- 
compatible par absence de commutateurs (autre mot pour 
switches })? 


Si je vous écrit tout ça, ce n'est pas pour remplir une 
page, mais vous mettre dans l'ambiance de la démarche de 
quelqu'un (vous un jour, sice n'a déja été le cas) qui 
doute, cherche et trouve. Car certains parmis vous croient 
encore que nous sommes des génies, alors que nous avons (je 
crois...) deux bras, deux jambes, une tête avec tout ce 
qu'il faut dedans pour essayer de résoudre nos problèmes 
quotidiens et les autres. 


Fin de Ta DIX-GRAISSE-SCIONS (comme le dit Bérurier, dans 
les livres de SAN-A, ed F.NOIR). 

En principe, un compatible PC est équipé sur la carte mêre 
d'une batterie de micro-contacteurs dont le rôle est 
d'informer le système Tlors de Ta mise en route sur la 
configuration du système. Chaque interrupteur correspond à 
une sélection particulière au sein d'une configuration 


globale de type binaire. Ceux concernant Île type de 
contrôleur vidéo sont appelés b2 b3: 

b2b3=11 carte mono-chrome 

b2 b3 = x x pour x x = 01 10 ou 00, carte couleur 


La configuration est mémorisée à l'adresse (0410:0h. A 


l'aide de TURBO-Forth, tapez: 

HEX 0410 O L@ U. DECIMAL 
et en principe, vous obtenez la valeur 407Dh. En modifiant 
cette valeur sur les seuls bits b2,b3, on peut commuter 
l'affichage d'une carte mono-chrome à une carte couleur et 


inversement. C'est ce que nous allons appliquer: 


LISTING: 


HEX 
0 0410 2CONSTANT SHITCHES 
SWITCHES L@ CONSTANT CONFIG-INITIALE 
: COLOR-CARD ( ---) 
SHITCHES L@ 
CF AND 


: MONO-CARD 

CONFIG-INITIALE SWITCHES L! 

2 MODE ; \ sélection mode monochrome 
DECIMAL 


Dur de faire plus court! Premier avantage pratique: les 
deux moniteurs peuvent rester connectés. Vous passez de 
l'un à l'autre en tapant COLOR-CARD ou MONO-CARD. 


Cependant, la commutation efface l'écran vidéo activé. 


On peut cependant écrire dans un écran tout en conservant 
la main sur l'autre écran vidéo: 


HEX 

B000 O CONSTANT MEM-MONO \ orig mémoire monochrome 
: >MONO ( car offset ---) 

>R MEM-MONO R> + LC! ; 

DECIMAL 


La même routine peut être utilisée avec une modification 
mineure pour obtenir le même effet sur carte couleur en 2 
MODE: 


HEX 

B800 O CONSTANT MEM-COLOR \ orig mém couleur 
: >COLOR ( car offset ---) 

>R MEM-COLOR R> + LC! ; 

DECIMAL 


Exemple, passons sur le moniteur couleur: 
COLOR-CARD 


L'affichage du caractère À sur le moniteur monochrome peut 
être provoqué par: 


65 O >MONO 


ce qui affiche À à Tla ligne 0, colonne 0 du moniteur 


monochrome. 

Voilà, je vous fait confiance maintenant pour tripoter 
EMIT, KEY et CR et faire des choses étonnantes avec ces 
premiers éléments, 


FORTH 


DES NOUVELLES DE TURBO-Forth 


Maintenant des nouvelles de TURBO-Forth: ceux qui ont reçu 
une version datée d'avant le 25/01/88 feraient bien d'en 
commander une nouvelle, car la version actuelle et quasi- 
presque-intégralement complète contient des routines dont 
nous ferons mention mais ne figurant pas sur leur version: 


-— STATUS a été activé sur le prompt OK et sélectable par 
STATUS? ON ou OFF. Si vous tapez STATUS? ON, l'affichage 
indique: 


O (dec) OK 


avec OK en surbrillance. Le premier chiffre indique le 
nombre d'éléments présents sur Ta pile de données. Le 
message (dec) vous signale que vous êtes en base décimale: 


(dec) pour base décimale 
(hex) pour base hexadécimale 
(oct) pour base binaire 


Le nombre d'éléments disponibles sur la pile reste en 
décimal même si la base numérique ne l'est pas. Exemple: 


1535 2 BASE ! et RETURN 


affiche 
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3 (#02) OK 


ce qui signifie que vous avez trois nombres sur la pile et 
que la base numérique courante est binaire. 


- ECHO ON ou OFF est une facilité permettant de voir 
défiler ou non le programme en cours de compilation depuis 
un fichier texte. Cette commande peut être intégrée au 
programme pour faire exécuter des listages partiels. Cette 
option est disponible depuis les premières versions, 


- EOF permet un arrêt de compilation dans un fichier. Ce 
qui suit cette commande peut être un texte comnantant le 
fonctionnement du progamme. J'encourage ceux qui voudraient 
nous envoyer des listings à profiter de cette facilité. 
Exemple: 


\ petit programme 

: BC 256 32 DO I EMIT LOOP ; 

EOF \ Explications 

Ce programme affiche tous les caractères de code 
ASCII compris entre 32 et 255. 


A Ta compilation, l'interpréteur s'interrompt à EOF. En cas 
de fichiers imbriqués, EOF renvoie au fichier appelant. 


Le mot EOF peut également vous permettre de voir ce qui ne 
va pas en cours de compilation en plaçant ce mot à 
l'endroit délicat. Attention, i1 n'est pas immédiat, donc 
ne Je placez dans une définition que si vous souhaitez 
intégrer EOF à la définition de ce mot. 


- Le mot DEBUG positionne une variable <IP qui a été 
déplacée et dont Te contenu est analysé. Lors de 
l'exécution de WORDS ou de SEE, le mot pointé par DEBUG 
apparaîtra en surbrillance. Essayez: 


DEBUG CR 
SEE WORDS 


Attention, option disponible seulement depuis le 25/01/88. 


- le mot SEE décompile maintenant en 
branchements par numéros. Exemple: 


indiquant Îles 


: BOUCLE 10000 O DO LOOP ; 
SEE BOUCLE 


affiche 


: BOUCLE 
n°1 (LIT) 10000 0 (DO) n°8 
n°6 (LOOP) n°6 
n°8 :; 


L'indication n°n est à compter pour un mot, sauf pour celle 
située en début de ligne. 


- le mot ['] a été modifié. 11 ne compile plus une valeur 
litérale, ce qui rend la décompilation beaucoup plus 
explicite. 


- les touches de fonctions sont gérées directement par 
FORTH et non plus Île driver ANSI.SYS. Ainsi, en sortie de 
TURBO, les touches précédemment affectées par un autre 
logiciel ne sont pas perturbées. Par contre, les attributs 
d'affichage sont toujours gérés par le driver ANSI.SYS. Si 
l'affichage des attributs vous gène, tapez ATTRIBUTS OFF. 


— Un nouveau mot, LSAVE, permet 1a sauvegarde de zones 
mémoire extra-segment de 64k maximum. Le mot SAVE utilise 
dorénavant LSAVE. Rien de changé concernant la syntaxe de 
SAVE, sauf qu'en cas d'oubli de l'extension, c'est .COM qui 
est automatiquement rajouté. 


— Les erreurs en cas de compilation sont gérées par 
rappel de l'éditeur et positionnement en ligne et colonne 
où l'erreur a été détectée. Vous pouvez utiliser l'éditeur 
depuis le DOS en tapant: 


EDIT fichier.ext lig co 


JeDi N°G/- Tomvier /188 


où lig et col sont les valeurs numériques des lignes et 
colonnes où positionner le curseur. En cas d'oubli de ces 
valeurs, vous êtes positionnés par défaut sur la première 
ligne. Si vous ne précisez pas le nom du fichier, c'est le 
nom SANSNOM.TXT qui est pris par défaut (on considère que 
TOTO est quasiment un mot réservé du système tellement il 
est employé à titre d'exemple par les débutants). 


L'option *K°D sauvegarde le fichier avec 1e même nom que 
celui de chargement et vous renvoie sous FORTH (commande 
similaire à celle de WORDSTAR). 


Rappelons encore une fois que si notre éditeur ne vous 
convienne pas, utilisez la commande: 


editeur.COM EDIT$ $! 


où editeur.COM est le nom de votre programme de traitement 
de texte. L'appui sur F2 appellera votre éditeur. 


FORTH 


MENUS DEROULANTS 


par Marc PETREMANN 
pour TURBO-Forth exclusivement 
servir FORTH en 


langage FORTH. 
programme inter-logiciel proposé 


On me demande parfois à quoi peut bien 
dehors des applications orientées sur JÎTle 
Voici donc Île premier 
dans les pages de JEDI. 


Ce programme permet de gérer un menu déroulant. Le 
résultat est passé de deux manières au programme appelant: 


- par BYE si le programme appelant est un fichier .BAT 

- par génération d'une ligne de syntaxe dBASE dans un 
fichier ASCII CHOIX.PRG si le programe appelant est 
dBASE III ou dBASE III+. 


Une option  SAUVE-VIDEO et 
sauvegarder le contenu de 
menu déroulant. 


RESTAURE-VIDEO permet de 
l'affichage avant lancement du 


Plusieurs menus déroulants peuvent être compilés dans un 
même programme. Voir 1'exemple en fin de listing. 


LISTING: 
\ Sauvegarde et restitution écran vidéo 
VARIABLE SCR#1 4000 ALLOT \ variable de sauvegarde 
HEX B800 0 2CONSTANT ORIG-VIDEO \ carte CGA 
\ BO00 O 2CONSTANT ORIG-VIDEO si carte monochrome 
DECIMAL 
DSEGMENT SCR#1 2CONSTANT DEST-VIDEO 
: SAUVE-VIDEO ( ---) 
ORIG-VIDEO DEST-VIDEO 4000 LCMOVE ; 
: RESTAURE-VIDEO ( ---) 
DEST-VIDEO ORIG-VIDEO 4000 LCMOVE : 


:: DEFINED NIP IF [COMPILE] \ THEN ; 
ALEPH,FTH 

\ charge ALEPH.FTH si ALEPH n'est pas défini 

\ ALEPH.TXT contient la gestion de variables locales, 
\ programme diffusé dans JEDI 39, page 2 listing 1. 


ALEPH INCLUDE 


<DECLARE VAR XD VAR YD VAR XF 
<DEFINE DOUBLE ( xd yd xf yf -—-) 
XD YD AT ASCII g EMIT XF XD 1+ 
DO I YD AT ASCII = EMIT LOOP 
XF YD AT ASCII y EMIT YF YD 1+ 
DO XD I AT ASCII | EMIT XF I AT ASCII | EMIT LOOP 
XD YF AT ASCII L EMIT XF XD 1+ 
DO I YF AT ASCII = EMIT LOOP 
XF YF AT ASCII À EMIT >> 


VAR YF 


VARIABLE CHOIX 
VARIABLE #CHOIX 
: TITRE 
CREATE SWAP C, C, ( 
d'affichage) 
DUP C, 


\ numéro du choix courant 
\ nombre de choix maximum 


compilation position x et y 


( compilation longueur de chaîne) 


HERE >R ( sauvegarde de DP) ECHO Tancement de CARBUR 


DUP ALLOT ( réservation place pour chaîne) CARBUR MENU 
R> ( récupération de HERE) ON ERRORLEVEL 2 GOTO choix? 
SWAP CMOVE ( compilation de la chaîne) ON ERRORLEVEL 1 GOTO choix1 
DOES> ON ERRORLEVEL 0 GOTO choixO 
DUP C@ 
OVER 1+ C@ AT ( positionne le curseur en x y) Et à partir d'un programme dBASE III ou dBASE III+ 


2+ COUNT TYPE ATTOFF ; 


RUN CARBUR MENU2 


DEFER SELECTION DO CHOIX. PRG 
* préciser l'extension et déclarer éventuellement PUBLIC 
: ROULEAU ( ---) CHOIX 
O CHOIX !  O INVERS SELECTION ATTOFF * pour la variable CHOIX 
#CHOIX @ 1 ?D0 I SELECTION LOOP 
BEGIN Le mot TO-DBASE génère un fichier ASCII d'une ligne nomné 
KEY DUP CHOIX @ SELECTION CHOIX. PRG de syntaxe dBASE et contenant une ligne: 
CASE ASCII + OF 1 CHOIX +!  ENDOF 
ASCII - OF -1 CHOIX +!  ENDOF STORE n TO choix 
ENDCASE 
CHOIX @ O MAX #CHOIX @ 1 - MIN DUP CHOIX ! où n est la valeur sélectionnée dans 1e menu déroulant. 
INVERS SELECTION ATTOFF 
13 = UNTIL Nota: avec des fichiers très volumineux, j'ai eu quelques 


; problèmes d'exécution du menu déroulant (plantage) quand 
plusieurs menus sont compilés dans un même fichier et que 


: TO-BATCH (€ ---) tout le fichier fait plus de 32k, 
ROULEAU 
CHOIX @ BYE ; 
LISP 


255 STRING CHOIX$ 
: TO-DBASE ( ---) UN ROBOT LOGICIEL 
ROULEAU 


"CO" CHOIX$ $! 
" STORE " CHOIX$ APPEND$ par A. JACCOMARD. 
CHOIX @ (.) CHOIX$ APPEND$ 
"TO CHOIX " CHOIX$ APPEND$ Le-Lisp MSDOS 
CONTROL Z CHOIX$ 1- + C! 
" DSEGMENT CHOIX$ OVER + SAVE CHOIX. PRG" $EXECUTE ; Ce programme a été écrit avec l'interprète Le Lisp, 
version 15.2, pour MS-DOS. L'essentiel en a été repris du 
EOF livre de Ch. QUEINNEC "Langage d'un autre type : LISP" 
Exemple d'utilisation de menu déroulant (cf. références en fin d'article). 
1) Syntaxe de titre: Le robot possède un bras lui permettant de manipuler des 
"chaine" N°option colonne ligne TITRE <nom> objets, un oeil pour les voir. Son univers est constitué 
; des objets fournis par l'utilisateur, ces objets ayant un 
2) initialisation des rubriques: type, une forme et une couleur donnés. I1 comprend les 
ordres, du moins s'ils sont réalisables dans son univers: 
3 #CHOIX ! 11 raisonne, dans des limites somme toute assez étroites. 
" RECAPITULATIF MENSUEL "10 10 TITRE RECAP1 
" SITUATION DES CONSOMMATIONS " 10 11 TITRE RECAP2 Voici un exemple de dialogue que l'on peut mener avec le 
" ESTIMATIONS KILOMETRIQUES  " 10 12 TITRE RECAP3 robot : 


#CHOIX @ CASE: CARBUR ? (robot) 


RECAPT RECAP2 RECAP3 ; BONJOUR, à vos ordres ! 
Ordonne, Maitre 
3) ensuite choisir pour une utilisation à partir d'un --> (je te donne une boite bleue nommée alpha) 
fichier .BAT: Merci pour la boite (alpha) bleue. 


Ordonne, Maitre 


: MENUI 
3 #CHOIX ! --> (et puis voici une boite rouge appelée beta) 
['] CARBUR IS SELECTION Attendez que je me libère la main .. 
TO-BAT ; C'est fait. J'ai déposé la boite (alpha) bleue sur le 
sol. 
(Cet exemple est réellement utilisé dans une application Merci pour la boite (beta) rouge. 
professionnelle. Je ne vous raconte pas la tête des Ordonne, Maitre 
collègues programmeurs quand ils ont su que c'était 
programmé en FORTH...). --> (maintenant voici une sphère rouge dénommée gamma ) 
Attendez que je me libère la main ... 
Pour une utilisation à partir de dBASE III ou dBASE III+: C'est fait. J'ai déposé la boite (beta) rouge sur Île 
sol. Merci pour 1a sphère (gamma) rouge. 
: MENU2 
3 #CHOIX ! —-> (que vois-tu ?) 
['] CARBUR IS SELECTION Je regarde 1a sphère (gamma) rouge. 
TO-DBASE :; Ordonne, Maitre 


Faire une sauvegarde sous forme compilée par SAVE-SYSTEM: --> (prend alpha dans ta main) 
Mais attendez que je pose Ta sphère (gamma) rouge sur le 
SAVE-SYSTEM CARBUR. COM sol. 
C'est fait. J'ai déposé la sphère (gamma) rouge sur le 
4) Utilisation pratique: sol. 
C'est fait. J'ai pris la boite (alpha) bleue en main. 
À partir d'un fichier .BAT, on utilisera le programme en Ordonne, Maitre 
tapant 


--> (pose alpha sur beta) 
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C'est fait. J'ai posé la boite (alpha) bleue sur 1a boite 
(beta) rouge. 
Ordonne, Maitre 
--> (et enfin je te donne une pyramide argentée dénommée 
delta) 
Merci pour 1a pyramide (delta) argentée. 
Ordonne, Maitre 


_-> (dépose delta s'il te plait) 
C'est fait. J'ai déposé la pyramide (delta) argentée sur 
le sol. 
Ordonne, Maitre 
--> (que sais-tu ?) 
Je sais que : 
Je regarde 1a pyramide (delta) argentée. 
Je ne tiens rien. 
Il y a une pile composée de : la 
argentée 
et c'est tout pour cette pile. 
11 y a une pile composée de : 
et c'est tout pour cette pile. 
11 y a une pile composée de : la boite (beta) rouge 
avec au-dessus la boite (alpha) bleue 
et c'est tout pour cette pile. 
Il n'y a rien d'autre. 
Ordonne, Maitre 


pyramide (delta) 


a sphère (gamma) rouge 


--> (bon pose gamma sur alpha) 

Attendez que je prenne en main la sphère (gamma) rouge... 
C'est fait. J'ai pris la sphère (gamma) rouge en main. 
C'est fait. J'ai posé la sphère (gamma) rouge sur la boite 

(alpha) bleue. 
Ordonne, Maitre 


--> (plus délicat maintenant pose beta sur alpha) 
Attendez que je prenne en main la boite (beta) rouge 
Mais attendez que je dégage la boite (beta) rouge. 

11 y a la boite (alpha) bleue dessus. 

Mais attendez que je dégage la boite (alpha) bleue . 

Il y a la sphère (gamma) rouge dessus. 

C'est fait. J'ai pris la sphère (gamma) rouge en main. 
C'est fait. J'ai déposé 1a sphère (gamma) rouge sur le sol. 
C'est fait. J'ai pris Ta boite (alpha) bleue en main. 
C'est fait. J'ai déposé la boite (alpha) bleue sur Île sol. 
C'est fait. J'ai pris la boite (beta) rouge en main. 
C'est fait. J'ai posé Ta boite (beta) rouge sur la boite 

(alpha) bleue. 
Ordonne, Maitre 


--> (donne-moi delta) 
Attendez que je retrouve la pyramide (delta) argentée ... 
C'est fait. J'ai pris Tla pyramide (delta) argentée en 
main, 
Voilà, je vous rends la pyramide (delta) argentée. 
Ordonne, Maitre 


--> (que sais-tu 7) 
Je sais que : 
Je ne vois rien de particulier. 
Je ne tiens rien. 
11 y a une pile composée de : 
la boite (aïpha) bleue 
avec au-dessus la boite (beta) rouge 
et c'est tout pour cette pile. 
I1 y a une pile composée de : 
la sphère (gamma) rouge 
et c'est tout pour cette pile. 
I1 n'y a rien d'autre. 

Ordonne, Maitre 


--> (c'est bien arrête-toi) 
Au revoir, Maitre. 
=? 


Le robot possède encore bien d'autres possibilités. I1 
utilise essentiellement deux fonctions, FILTRE et 
MICRO-PARSE, une base de données, DATA, contenant Îles faits 
de l'univers et les actions demandées dans cet univers, et 
un ensemble de règles,RULES, contrôlant Îles interactions 
entre faits et actions. 
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La fonction FILTRE prend une expression, un filtre et un 
environnement (une A-liste) et retourne un environnement, 
ou NIL en cas d'insuccès. Les filtres sont au nombre de 
trois : 


- (*ONE*) qui filtre un objet quelconque; 

- (#ONE* identificateur) qui de plus associe la valeur 
filtrée à la variable ‘identificateur'. Cette variable 
sera éventuellement réutilisée pour filtrer une même 
valeur: 

Er CHANYE) 
quelconques; 

- (XLISTE* X Y Z ...) filtre une liste contenant un 
terme filtrable par l'un des filtres X, Y, Z... 


filtre une suite quelconque d'objets 


MICRO-PARSE traduit en termes d'actions une phrase en 
langage naturel. Cette fonction prend comme arguments une 
phrase et une grammaire, et retourne une valeur, synthèse 
de la phrase d'entrée analysée selon la grammaire. Par 
exemple, la phrase: 


(et maintenant je te donne 
alpha) 


une sphère rouge nommée 


est analysée par la forme 


(CFANY*#) je te donne (*ONE*) (*ONE* type) (*ONE* color) 
CXONE*) CHONE* X) CANY*)) 


‘rouge' et X 
'WANT-TO-GIVE 
la phrase est imposée 


qui va associer ‘type' à 'sphère', 'color' à 
à ‘'alpha', pour synthétiser la clause 
alpha'. Notez que la structure de 
par celle de la forme-filtre. 


La base de données est un ensemble ordonné de clauses, 
représentées par des listes dont le premier terme est un 
mot-clef identifiant île type de la clause. Elles sont de 
deux sortes: 


- les clauses décrivant l'état de l'univers, au nombre 


de six: 
(TYPE identifiant d'objet forme) 
(COLOR identifiant d'objet couleur) 
(ON identifiant d'objet  FLOOR) 
(ON identifiant d'objet identifiant d'objet) 
(HAND identifiant d'objet) 
(EYE identifiant d'objet) 


Tous Îles objets de l'univers du robot (ceux donnés par 
l'utilisateur) doivent avoir un nom unique, l'identifiant 
d'objet. Les clauses TYPE et COLOR sont auto-explicites, 
ON situe les objets dans l'espace, HAND et EVE fixent Îles 
objets tenus et regardés par Île robot. 


- les clauses d'actions se subdivisant en: 


- clauses de connaissance: 

— (WHAT-IS-KNONN) le robot décrit ce qu'il 
sait, 

- (WHAT-IS-SEEN) 

- (WHAT-IS-HELD) 


: ce qu'il voit, 
: ce qu'il tient. 


- clauses d'action proprement dites: 

- (WANT-TO-GIVE identifiant d'objet forme 
couleur) : accepter un objet de l'utilisateur; 

- (WANT-TO-RETRIEVE identifiant d'objet) : 
rendre un ; 

-  (WANT-TO-TAKE 
prendre un dans Ta main ; 

— (WANT-TO-LAY 
en déposer un sur le soi ; 

-  (WANT-TO-LAY identifiant d'objet 
identifiant d'objet) : en déposer un sur un autre : 

- (WANT-TO-SEE identifiant d'objet) : 
regarder un objet ; 

- (WANT-TO-STOP}) : s'arrêter ; 

- (WANT-TO-OBEY) : attendre un ordre. 


lui en 
identifiant d'objet) : en 


identifiant d'objet  FLOOR) : 


DATA, Ta base de données, est une liste de clauses ne 
contenant initialement que la clause (WANT-TO-OBEY). Elle 
se construit au fur at à mesure des besoins, grâce à ses 5 
fonctions de manipulation : 


- ADD ajoute une clause à la base (clause d'action en 
tête, clause d'état à la fin); 

-  DELETE efface la clause fournie en argument, la 
première éventuellement; 

—  FORGET efface Ta première clause de la base, sans 
distinction; 

- ERASE efface une clause spécifiée par son mot-clef; 

- UPDATE met à jour ou crée éventuellement une clause 
spécifiée par son mot-clef. 


La Fonction RUN-CLAUSES enchaîne Îes dialogues, en faisant 
exécuter séquentiellement Îles clauses d'actions. Si la 
clause appartient à Ta P-Tiste de ACTION, la fonction 
associée au mot-clef de la clause considérée est lancée 
(sans argument). Deux clauses sont définies par ce moyen, 
WANT-TO-STOP et WANT-TO-OBEY, cette dernière exécute un 
ordre et ajoute la clause d'action correspondante 
synthétisée par MICRO-PARSE. 


Si la clause appartient à la P-liste de RULES, les règles à 
appliquer sont associées au mot-clef. Les règles sont ainsi 
structurées : 


règle =  ((clause d'appel clauses de contexte ...) 
expressions ...) 


‘expressions' étant une suite souvent formée de fonctions 
de manipulation (mais elles peuvent être des expressions 
LISP quelconques). Par exemple, la règle 


(CCWANT-TO-TAKE (#*ONE* X)) _; clause d'appel 

CHAND (C*ONE* X) ) ; Clause unique de contexte 
(: ANSNER [Mais j'ai déjà | C*ONE* X) | en main|) 
(:FORGET) ) 


signifie que si l'action consiste à prendre un objet 
(WANT-TO-TAKE (*ONE* X)) et que cet objet est dèjà dans la 
main du robot, alors ce dernier doit le dire, puis oublier 
la clause à exécuter pour passer à la suite. 


La fonction ANSHER permet au robot de répondre 
intelligement" à l'utilisateur. Elle substitue, dans la 
réponse, à (*ONE* X) la séquence 


FE DTSTING en ROBOT 


“article forme de 


couleur" 


l'objet 


et elle reconnait qu'un atome est un identifiant d'objet à 


sa présence sur la P-liste de OBJECT. 


Les règles sont appliquées dans l'ordre où 


apparaissent sur la P-Tiste de RULES: cet ordre n'est pas 
indifférent. Le robot ne reçoit un objet que si sa main 
est vide, sinon 11 dépose sur le sol l'objet tenu. Pour 
saisir un objet, 11 vérifie qu'il ne l'a pas déjà en main, 
que celle-ci est vide, et qu'il n'y a rien au-dessus de 
l'objet qu'il désire. Pour poser un objet sur un autre ou 
et que 
celui sur lequel i1 doit le poser est libre. Il ne peut 


sur le sol, i1 vérifie qu'il a l'objet en main, 


rendre un objet qu'après l'avoir pris. 


Les erreurs sont signalées de façon bien visible, mais 
elles ne sont pas toutes corrigées, Ainsi, le robot 
accepte de poser un objet sur un autre qu'il ne possède 


pas .., 


Ce programme, modulaire et structuré, pourrait être 


amélioré selon 3 directions : 


— en ajoutant des règles à la grammaire ("que 


connais-tu", énonçant les objets connus du robot): 


- en introduisant d'autres filtres ((*OR*) reconnaissant 


un mot dans une liste); 


— par Ta prise en compte des situations "réelles" 


(interdire de poser une boule sur une pyramide, ...) 


De même, des possibilités de Le Lisp ne sont pas 
exploitées: le graphisme et le  multi-fenétrage 
permettraient de "voir" le robot agir dans son coin. 


ceci est un autre programme ... 


Références: 


1 - Interprète Le Lisp de l'INRIA, version 15.2, fournie 


par ACT Informatique, PARIS. 


2 - Ch. QUEINNEC, "Langage d'un autre type : LISP", aux 


Editions EYROLLES, PARIS, 1983, 


; Un robot "logiciel" décrit dans Ch. QUEINNEC "Langage d'un autre type : LISP" [1983]. 
; Adaptation pour Le Lisp v. 15,2 par A. Jaccomard, déc. 1987, 


(defvar #:sys-package:colon ‘robot) ; place le ROBOT dans son "package" 
(de robotend () ; récupère la place occupée 
(setq #:sys-package: itsoft (delq ‘robot #:sys-package: itsoft)) ) 


; Les utilitaires. 


; BUILD construit des listes, et place dans l'expression 
; A-liste) à l'argument du ‘constructeur! *one* ou *=* . 


(dm build ca11 


GbuildT ,(cadr ca11) ,(if (cddr call) (caddr cal1))) } 


(de :bui1d1 (L AL) 
(if (consp L) 
(if (consp (car L)) 
(let ((fn (get ':build (caar L)))) 
(if fn (funca11 fn L AL) 

(cons (:bui1d1 (car L}) AL) 
(ibuild1 (cdr L) AL))) ) 

(cons (car L) (:build1 (cdr L) AL)) ) 


à construire la valeur associée (dans la 


L)) 
(putprop  ‘:build ; place sur la P-1iste de BUILD l'identificateur ‘#-*! 
(Tambda (L AL) (cons (eval (cadar L)) ; et sa fonction associée. 
(:build1 (cdr L) AL)) ) 
REX) 
(putprop ‘:buitd ; identificateur spécial ‘'*one* 


(lambda (L AL) (cons (et ((R (assoc (cadar L) AL))) 
(if R (cdr R) (car L))) 

(:build1 (cdr L) AL)) ) 
'kone*) 
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(identifiant d'objet) 


elles 


Mais 


11 


(de :1prin (L) : affiche en vidéo inversée les articles de 'L' 
(tyattrib #201110001) 


(if (consp L) (progn (prin (car L) | D) 
(:1prin (edr L)) ) 
(terpri) ) 
(tyattrib (3) ) 
(de :flag (A I) : place Île drapeau I 
de valeur T sur la A-liste de A. (putprop À T I) ) 
; Filtrage. 
(de :filtre (exp filt al) ; 'exp' : expression à filtrer 
(if al ; "filt' : filtre utilisé 
(1f (atomp fitt) ; ‘al! : la A-liste où placer le résultat 


(if (eq exp filt) al) 
(let ((one (get ‘':filtre (car filt)))) 
(if one (funcall one exp filt al) 
(:filtre-liste exp f11t al) ) ) ) )) 


(de :filtre-liste (exp filt al) 
(1f al 
(if (consp filt) 
(if (consp (car filt)) 
(et ((one (get ‘:filtre-liste (caar filt)))) 
(if one (funcall one exp filt al) 
(if (consp exp) 
(:filtre-liste (cdr exp) (cdr filt) (:filtre (car exp) (car filt) 


al) )))) 
(if (consp exp) 
(:filtre-liste (cdr exp) (cdr filt) (:filtre (car exp) (car filt) al) ) ) ) 
(if (eq exp filt) al) ) ) ) 


: Filtre (*one*) ou (*one* X) 
(putprop ‘:filtre (lambda (exp fit al) 
(if (nu11 (cdr fi1t)) al 
(let ((v (assoc (cadr filt) a1))) 
(if v (if (equal exp (cdr v)) al) 
(cons (cons (cadr filt) exp) al) ) ) } ) 
‘kone*) 


; Filtre (*any*) 
(putprop ':filtre-liste (lambda (exp filt al) 
(if (null (cdr fi1t)) al 
(if (consp exp) 
(let ((r (ifiltre-liste exp (cdr filt) a1))) 
(Gif rr (:filtre-liste (cdr exp) fit al))) 
(:filtre-liste exp (cdr fi1t) al) ) ) ) 
‘kany*) | 


: Filtre (*liste* X Y Z ...) 
(putprop ‘':filtre (lambda (exp filt al) 
(if (cdr filt) 
(:filtre exp (cons '#liste* (cddr fi1t)) 
(:filtre-liste exp ‘((*any*) ,(cadr fit) (fany*)) 
al) ) 
al) ) 


'x]jste*) 


; Interface langage naturel. 
(de :micro-parse (exp grammar) ; micro-analyse de la phrase entrée 
(if grammar 
(let ((r (:filtre exp (caar grammar) t))) 
(if r (sbuild (cadar grammar) r) 
(imicro-parse exp (cdr grammar)) ) ) ) ) 


(setaq :robot-grammar ( 
(((Fany*) je te donne (*one*) (*one* type) (*one* color) ; acquisition d'un objet. 
(Fone*) (#one* x) (*any*) ) 
{want-to-give (*one* x) (#one* type) (*one* color)) ) 
(((#any*) voici (*one*) (*one* type) (*one* color) ; Synonyme exact de 
(fone*) (*one* x) (*any*) ) 
(want-to-give (*one* x) (*one* type) (“one* color)) ) 


"je te donne" 


({(*any*) donne-moi (#one* x) (#any*)) ; rend un objet. 
(want-to-retrieve (“one* x)) ) 

(((*any*) prend (*one* x) (*any*)) ; prend un objet. 
(want-to-take (*one* x)) ) 

(((*any*) dépose (*one* x) (*any*)) ; pose un objet sur le sol. 
(want-to-lay (*one* x) floor) ) 

(((any*) pose (*one* x) sur (#one* y) (#any*)) ; pose un objet sur un autre. 
(want-to-lay (*one* x) (*one* y)) ) 

(((#any*) regarde (*one* x) (*any*)) ; regarde un objet. 
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(want-to-see (*one* x)) ) 

((Cfany*) que sais-tu (*any*)) 
(what-is-known) ) 

(((fany*) que sais tu (*any*)) 
(what-is-known) ) 

((CFany*) que vois-tu (*any*)) 
(what-is-seen) ) 

(((Fany*) que vois tu (*any*)) 
(what-is-seen) ) 

(((Fany*) que tiens-tu (*any*)) 
(what-is-held) ) 

((CFany*) arrête (*any*)) 
(want-to-stop) ) 

(((tany*#) stop (*any*)) 
(want-to-stop) ) 

(((any*) arrête-toi (*any*)) 

(want-to-stop) ) }) 


; Fonctions de manipulation de la base de données. 


(de :e-erase (clause) 
(setq data 


(letn auxerase ((clauses data)) 


(if (cdr clauses) 


; examen de l'univers du robot. 
; Synonyme de “que sais-tu" 

; quel objet est regardé ? 

; Synonyme de "que vois-tu" 

; quel objet dans 1a main du robot ? 


; où "stop" où "arrête-toi" 


; efface une clause spécifiée par son seul mot-clef 


(if (equal (caadr clauses) (car clause)) 
(progn (rplacd clauses (cddr clauses)) data) 
(auxerase (cdr clauses)) ) 


data ) ) )) 


; met à jour ou crée une clause spécifiée par 
; son mot-clef 


(de :e-update (clause) 
(setq data 
(letn updaux ((clauses data)) 
(if (cdr clauses) 

(if (equal (caadr clauses) (car clause)) 

(progn (rplacd (cadr clauses) (cdr clause)) data) 
(updaux (cdr clauses)) ) 
(:e-add clause) ) ) } ) 


(de :forget () 


(setq data (cons ‘data (cddr data))) ) 


(de :e-delete (clause) 
(setq data 


; efface la première clause de la base 


; efface de 1a base la clause fournie en argument, 
; Sans distinction. 


(letn auxdel ((clauses data)) 
(if (cdr clauses) 
(if (equal (cadr clauses) clause) 
(progn (rplacd clauses (cddr clauses)) data) 
(auxdel (cdr clauses)) ) 
CGlprin (H6BE ]DELETE| ,clause [WITH DATA IMPOSSIBLE] )) 
(Mist data) ) } )) 


(de :e-add (clause) ; ajoute une clause à 1a base de données. 
(setq data 
(if (or (get ‘:rules (car clause)) (get ':action (car clause))) 
(rplacd data (cons clause (cdr data))) 


(nconc data (list clause)) }) ) ) 


; Les formes FEXPR des fonctions précédentes simplifient la construction 
: de la base de données. 


(df :erase (args) 
(:e-erase args)) 


(df :update (args) 
(:e-update args)) 


(df :delete (args) 
(:e-delete args)) 


(df :add (args) 
(:e-add args)) 


3 _ ANSHER donne les réponses du robot. 


(df :answer phrase 
(letn auxansw ((phrase phrase)) 
(if phrase 
(if (get ‘objet (car phrase)) 
(progn (let ((r (:filtre data 
(ibuild '(liste* 
(type (*=* (car phrase)) (*one* t}) 
(color (*=* (car phrase)) (*one* c)) )) 


t))) 
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Gifr 
a —————————————— (progn (prin (get ‘article (cdr (assoc 't r))) | | 
(cdr (assoc "t r)) 
(list (car phrase)) ‘| | 
(dr (assoc 'e r)) '| |)) 
(terpri) 
(:1prin *Crbbt |OBJECT| ,(car phrase) |INCORRECT IN DATA|)) )) 
(auxansw (cdr phrase)) ) 
(if (eq (car phrase) "fioor) 
(progn (auxansw ‘(le so1)) (auxansw (cdr phrase))) 
(prin (car phrase) 1 D) 
(auxansw (cdr phrase)) } ) ) ) 
(terpri) ) 


; Pour accorder l'article à l'objet : 


(plist ‘article ‘(cube 1e sphère 1a pyramide la boite la)) 
(addprop ‘article "la ‘boule) ; extension facile. 


;  RUN-CLAUSES enchaîne Îles traitements. 


(de :run-clauses () 
(until (or (null (cdr data)) (eq (caadr data) 'want-to-stopl)) 
(let ((rules (get ':rules (caadr data)))) 
(if rules 
(do ((rules rules (cdr rules))) 
((if rules (:apply-rule (car rules)) 
(:1prin “(66 [NO RULE FOR] ,(cadr data) |IN DATA|)) 
(: forget) 
(:forget) t )) ) 
(let ((action (get ':action (caadr data)))) 
(if action (funcall action) 
(2 1prin (re fe MEANING ASSOCIATED TOÏ ,(cadr data) [IN DATA] )) 


(:forget)))))) 


(de :apply-rule (rule) 
(let ((r (:filtre (cadr data) (caar rule) t))) 
Gifr : 
(let ((rr (:filtre (cddr data) (cons '“liste* (cdar rule) } r ))) 
Gif rr 
(progn (eprogn (:build (cdr rule) rr)) t ))))) ) 


; La fonction utilisateur : 


(de robot () 
(setq #:sys-package: itsoft (cons ‘robot #:sys-package: itsoft)) 
(setq data (list 'data)) ; initialise DATA 
(:add (want-to-obey)) 
(prompt LL 
(setq at (tyattrib)) ! ; Sauvegarde mode vidéo courant 
(tycis) (tycursor 0 0) 
(tyattrib #700001111) ; vidéo haute intensité 
(print " BONJOUR, à vos ordres !") 
(tyattrib at) 
(:run-clauses) ; la boucle principale. 


(prompt "? ") ) 
: Les actions sont placées sur la P-liste de ACTION, 


(putprop ‘:action (lambda () ; la règle WANT-TO-STOP, arrête le programme. 

(tyattrib #200001111) (terpri) 
(:answer | Au revoir, MAITRE|) 
(terpri) 
{tyattrib at) 
(: forget) 
(setq data (cons ‘data (cons ‘(want-to-stopl) (cdr data)))) ) 

‘want-to-stop) 


(putprop ‘action (lambda () ; la règle WANT-TO-OBEY, exécute un ordre. 
(terpri) 
(tyattrib #%00001111) 
(print " Ordonne, MAITRE") 
(tyattrib at) 
(terpri) 


(et ((clause (:micro-parse (read) :robot-grammar))) 
(if clause (progn (:e-add clause) 
(if (eq (car clause) 'want-to-give) 
(:flag ‘objet (cadr clause)) ) ) 


(tyattrib #%10001111) ; clignotant brillant 
(print "Je n'ai pas compris") 
(tyattrib at) ) } ) ; vidéo normale 


‘want-to-obey) 


14 ; Les règles sont placées sur la P-liste de RULES. . 
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(mapc (lambda (R) (putprop ':rules (cdr R) (car R)) ) 
"( (want-to-give i le mot-clef précédant chaque règle. 
(((want-to-give (#one* x) (*one* t) (*one* c)) 

(hand (*one* y)) ) 

(:add (want-to-lay (*one* y) floor)) 

(tanswer [Attendez que je me libère la main ...|) ) 

(((want-to-give (*one* x} (*one* t) (*one* c))) 

(: forget) 

(:add (type (*one* x) (*one* t))) 

(:add (color (*one* x) (#one* c))) 

(:add (hand (*one* x))) 

(:update (eye (*one* x))) 

(:answer |Merci pour] (#*one* x) 1.1) ) 

; fin du “want-to-give" 


(want-to-retrieve 
(((want-to-retrieve (*one* x)) 
(hand (#one* x)) 
(type (*one* x) (*one* t)) 
(color (*one* x) (*one* c)) ) 
(tanswer |[Voilà, je vous rends| (*one* x) |.|) 
, (:erase (eye)) 
(: forget) 
(:delete (hand (*one* x))) 
(:delete (type (*one* x) (#one* t))) 
(:delete (color (*one* x) (*one* c))) } 
(((want-to-retrieve (*one* x))) 
(:add (want-to-take (*one* x))) 
(answer [Attendez que je retrouve] (*one* x) | ...1)) 
; fin du "want-to-retrieve 


ES 


(want-to-take 

(((want-to-take (*one* x)) 

(hand (*one* x)) ) 

(: forget) 
(:answer [Mais j'ai nl CFone* x) |en main. |) ) 
(((want-to-take (*one* x) 

(hand (*one* y)) ) 

(:add (want-to-1ay (*one* y) floor)) 

(:answer |Mais attendez que je pose] (*one* y) lisse) 5 
(((want-to-take (*one* x)) 

(on (#fone* y) (*one* x)) ) 

(:add (want-to-lay (*one* y) floor)) 

(:add (want-to-take (*one* y))) 

(:answer [Mais attendez que je dégagel (*one* x) l1) 
(:answer il y a (*one* y) |dessus |) ) 
(((want-to-take (*one* x)) 

(on (*one* x) (*one* y}) ) 

(: forget) 

(:delete (on (*one* x) (*one* y))) 

(:answer [C'est fait, J'ai pris| (#one* x) [en main. |) 
(:update (eye (*one* x))) 

(:add (hand (*one* x))) ) 

) ; fin du "want-to-take" 


(want-to-1ay 
(((want-to-1ay (*one* x) (*one* x))} 
(: forget) 
(:update (eye (“*one* x))) 
Ctyattrib #%00001111) 
p (: answer |cà va pas, non ? Poser un objet sur lui-même tt) 
(tyattrib at) ) à 
(((want-to-lay (*one* x) (*one* y)) 
Con (*one* x) (*one* y)) } 
(:answer Maïs (*one* x) est déjà sur (*one* y) | 1 
(: forget) ) 
(((want-to-lay (*one* x) floor) 
(hand (*one* x)) ) 
: forget) 
:update (eye (“*one* x))) 
:delete (hand (*one* x))) 
:add (on (*one* x) floor)) 
sanswer |C'est fait. J'ai déposé| (*one* x) [sur le so1.|) ) 
(((want-to-lay (*one* x) (*one* y))} 
Chand (#one* x)) 
(on (*one* z) (#one* y)) ) 
(:add (want-to-lay (*one* z) floor)) 
(:answer |Attendez que je dégage| (*one* y) de (*one* z) fssa!l) ) 
(((want-to-lay (*one* x) (*one* y)) 
Chand (#*one* x)} ) 
(: forget) 
(:update (eye (*one* x))) 
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(delete (hand (*one* x))) 
(:add (on (*one* x) (*one* y))) 


(tanswer [C'est fait. J'ai posé] (*one* x) sur (*one* y) |.|) ) 


(((want-to-lay (*one* x) (*one* y)) 

(hand (*one* z)) ) 

(:add (want-to-lay (*one* z) floor)) 

(answer |Je pose (*one* z) |qui me gêne. |) ) 
(((want-to-lay (*one* x) (*one* y))) 


(:answer [Attendez que je prenne en main] (*one* x) |...|) 


(:add (want-to-take (*one* x))) ) 
s fin du "want-to-1ay" 


(what-is-held (((what-is-held) 
(hand (*one* x})) ) 

(: forget) 

(:answer |Je tiens] (#one* x) |.]) ) 
(((what-1s-he1d)) 

(: forget) 

(answer |Je ne tiens rien. |) ) 

s fin du "what-is-he1d" 


(what-is-known 
(((what-is-known)) 
(: forget) 
(answer |Je sais que :|) 
(:add (what-is-known1)) 
(mapc (lambda (clause) 


(let ((r (:filtre clause "(on (*one* x) floor) t))) 


data) 
(sadd (what-is-he1d)) 
(:add (what-is-seen)) ) 

) ; fin du "what-is-known" 


(what-is-known1 
(((what-is-knownl (*one* x)}) 

(: forget) 

(zadd  (what-is-known2 (*one* x))) 

(answer |I11 y a une pile composée de :| (*one* x)) ) 
(((what-is-known1 )) 

(: forget) 

(answer [11 n'y a rien d'autre. |) ) 

; fin du "what-is-knownl" 


(what-1s-known2 
(((what-is-known2 (*one* x)) 
(on (#one* y) (*one* x)) ) 
(:update (what-is-known2 (*one* y))) 
(:answer avec au-dessus (*one* y)) ) 
(((what-is-known2 (*one* x)) ) 
(: forget) 
) ; fin du "what-is-known2!" 


(what-is-seen 

(((what-is-seen) 

(eye (*one* x)) ) 

(: forget) 

(answer [Je regarde] (*one* x) |.])) 
(((what-is-seen)) 

(: forget) 

(:answer [Je ne vois rien de particulier. |) ) 

: fin du "“what-is-seen" 


(want-to-see 
(((want-to-see (*one* x))) 
(:update (eye (*one* x))) 
(: forget) 
(answer |C'est fait. Je regarde] (*one* x) |.|) ) 


(tanswer |et c'est tout pour cette pile. |) ) 


(1f r (te-add (Tist 'what-is-known1 (cdr (assoc 'x r))))) } ) 


; fin du "want-to-see" et des règles. 


COURRIER 
CONTENU DES REVUES PARLANT DE FORTH 


Ne serait-il pas possible de présenter Le contenu des 
différentes revues consacrées au Langage FORTH (ex: 


photocopie des contents). 
Robert PICHON - 78001 VERSAILLES 
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REPONSE: nous ne recevons pas toutes Les revues parlant de 
FORTH, malheureusement. De plus il existe trois sorte de 
revues: 


- celles consacrées A UNETLEE exclusivement au FORTH: 
JEDI, FORTR OIMENSION, VIERTE DIMENSION. 


suite page 29 


SIMULATION DE COMMANDESS DE  IROBOUSS 


EN TURBO PROLOG 


Le but de Ce programme est essentiellement  pédapgo;ique. Il montre 
comment il est possible de faire évoluer une base de connaissances. 


Deux robots "Et Le" et "tac" se trouvent dans un “micro- monde" 
défini par une baze dre connaissances Anitiaole (voir exemple dans Île 
programme). Le programme permet d'agir sur ces robots #grôce à des ordres: 


tels que prendre un objet où mettre un objet dans un lieu. 

Quand on ordonne à un robot de prendre un objet il faut que cet objet 
puisse être pris. De plus, un robot ne peut tenir qu'un objet à la fois. 

Si ce ronditions sont réunies alors les actions exécutées entraïneront 
des changements dans la base de connaissances : un fait fient sera ajouté 
pendant qu'un fait peut étre pris sera ôté. Au cas où le robot aurait eu à 
se déplacer pour prendre l'objet son nouveau lieu est consigné et l'ancien 
est effacé. 

La base de connaissances est également réactualisée quand on ordonne à 
un robot de mettre un objet dans un lieu. 


Examinons les clauses un peu plus en détail. 


> va_dans(Robot, Lieu) sont les clauses utilisées pour ordonner à un 
Robot de £e rendre dans un Lieu défini. Si le Robot s'y trouve déjà, la lère 


clause affiche ‘“Aobot est dans Liew'. S'il n'y est par, l'endroit où {il se 
trouvait est supprimé de la base de connaissances, on l'anvoile dans le Lieu 
voulu, d'où le message "“ÆAobot va dans Lieu‘ affiché par la 2ème clause puis 


ce nouveau foit ast ajouté à la base. 


K  prend(Robot,Objet). La lère clause vérifie d'abord que l'Objet peut 
être pris, auquel &Gag ce fait est enlevé de la base et le fait tient 
CRobot,Obiati est ajouté; le message "Robot tient Objet" est alors affiché. 
Si l'Objet ne peut être pris c'est qu'un Autre, Robot le détient. La Zème 
clause est chargée d'afficher le messoge "Autre Robot tient déjä Objet". 

ur 

%  cherche(CkRobat, Objet). Là également la lère clause vérifie que le 
Robot ne détient pas un objet (qui peut être celui recherché). Dans ce cas 
un message indique le lieu où se trouve l'Objet, ordre est donné au Robot de 
s'y rendre (il peut y être déjà : voir va dans) puis de prendre cet Objet 
{voir  prend)., Sinon la 2ème clause intervient en envoyant le message 
"/mpossible Robot tient déjà tel objet". 


K déplace (Robot, Objet,Lieu). Ici quatre cas peuvent se produire 


1.Robot tient déjà Objet. On l'envoie alors dans Lieu pour qu'il y 
place l'Objet. 

2.Raobat tient un Autre Objet, On le débarasse de cet Autre Dbjet (avec 
mise à jour correspondante de la base), on lui ordonne de chercher l'Objet, 
puis on l'envoie dans Lieu pour y placer l'Objet. 

8.Un Autre Robot tient l'Objeat. La 3ème clause intervient alors pour 
afficher le message “Objet est déjà pris par Autre Robot". 

4.Robot ne détient aucun objet. On l'envoie chercher cet Objet puis 
dans le Lieu pour l'y placer. 


*X place(kRobot,Objet,Lieu) est appelée éventuellement par déplace afin 
d'actualiser la base de connaissances puis d'afficher ©"fobot a mis Objet 
dans Liew'. ; 


Après le choix de l'option IRun le programme offre dans une fenêtre un 
menu permettant d'exécuter les 2 ordres indiqués précédemment, de 
sauvegarder la base de connaissances ou de quitter. 

Avant et après chaque ordre donné à un robot le 
finale Seront affichées dans deux fenêtres contiguë 
visualiser l'évolution de la base de connaissances. 

Les ordres donnés aux robots sont faits de facon conversationnelle., 


5 situations initiale et 
5, ce qui permet de bien 


Voir exemples encadrés 1, 2 et 3. 


Nota : la base initiale n'est là qu'à titre d'exemple. I1 est bien sûr 


rossible de la modifier et auesi d'y mettre plus de 2 robots. 


Jezan-Pazau LL PFOSTIEC 
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ENNEMI NN NES NT ST IN MENT EME NET IN TUETTTTTTTTIE TSI NES TIT ETATS TES ETS CES Se 774 
7K PROGRAMME DE SIMULATION DE COMMANDES DE ROBOTS AVEC EVOLUTION DYNAMIQUE &/ 
a D'UNE BASE DE CONNAISSANCES. AUTEUR : Jean-Paul POSTEC Avril 1987 %/ 
D RACE AE AE AS AE AO ARE KA RON AC ONE ORCH NOR CRONONO ORAONOHAORCOROOKO KAAC OA KOROKO AO ORCR K OKK 


database 


est _ dans (5ymboi,symbal) LR ROROROK ACACRORONCK OR ORCH AOROOOIOKX 
peut _étre _pris(symbol) /* BASE DE CONNAISSANCES */ 
tient (symbol,symbol) LR KOKON NA AK AOKOR HOK AOKCK OK HR EK 


predicates 
fenêtres 
place (symbol, symbol,symbol) 
déplace (symbol,symbol, symbol} 
va_dans(symbol,symbol) 
cherche (symbol,symbol) 
prend(symbol,symbol) 
effacer base 
afficher base 
init 
run 
menu(integer) 
action(integer) 


goal 
init, run. 


clauses 


SATA 8 nes | DURFRRANTEE FRE 
EX ÿ Rd 


fenêtres if makewindow(1,2,8,"Situation initiale",0,0,15,28), 
makewindow(2,2,5," "Situation finale” ,0,28,15,28), 
makewindow(3,64,7,'"MENU",0,56,15,24), 
makewindow(4,31,2,"Dialogues",15,Q,10,80). 


D ARR AC ECO RON RO RE ME RE RERO OR OI K 
fx COMMANDES RELATIVES AUX ROBOTS AVEC MISE A JOUR DE LA BASE X/ 
LR RORORORRORHHR AE KO HAOK HER ROR HE RORO OH RROR HE ROM HOR ROHAN NOK ORAN RORORACR HONOR AIO HRK 


place (Robot,Objet,Lieu) if retract(tient (Robot,Objet)), 
asserta(peut_ être _pris(Objet)), 
retract (est _ dans (Objet, 2), 
asserta (est dans (Objet,Ligeu)), 
write (Robot,' a mis ",Objet,' dans ",Lieu), nl. 


déplace (Robot,Objet,Lieu) if tient (Robot, Objet), !, 
write (Robot, tient ",Objet), nl, 
va _dans(Robot,Lieu), 
place (Robot, Objet, Lieu). 
déplace (Robot,Objet,Lieu) if tient (Robot, Autre objet), !, 
retract (tient (Robot, Autre objet)), 
asserta (peut _&tre_pris(Autre objet)), 
write (Robot,'" se débarrasse de ‘, Autre objet), 
nl, cherche (Robot Objet), 
va_dansRobot,Lieu), 
place (Robat,Objet,Lieu). 
déplace{( _,0Objet, _) 1f tient (Autre robot Objet), !, 
: write (Objet," est déjà pris par ",Autre robot), ni. 
déplace (Robot,Objet,Lieu) if cherche (Robot,Objet), 
va_dans(Robat, Lieu), 
place (Robot ,Objet,Lieu), !. 


va _dausirovot,Lieu) it e8t dangtkhobot,Liéu),""f 


write (Robot ," est dans ",Lieu), nl. 
va_dans(Robot,Lieu) 1f retract(est dans(Robat, )), 
write (Robot,'"' va dans "“,Lieu), nil, 


asserta(est dans (Robot,Lieu)). 


cherche (Robot,Objet) if not(tient (Robot, D), !, 
est_dans(ObJet,Lieu), 
write (Objet, est dans ",Lieu), nl, 
va_dans (Robot, Lieu), 
prend(Robot,Objet). 

Cherche (Robot, _) if tient (Robot, Autre objet), 


write (” Impossible ", Robot," tient déjà ‘',Autre objet), nil. 


18 JEDi N° GG _Tanvier 1988 


Ms + 


_— 


prend(Robot,Objet) if peut être pris(Objet), !, 
retract (peut être pris(Objet)), 
write Robot," prend “,Objet), nl, 
asserta(tient (Robot, Objet)), !. 
prend(_,Objet) if tient (Autre robot,ObJjet), 
write ("Impossible ",Autre robot," tient déjà ‘“,Objet), njJ. 


LR AK RO ACRON AK AOK AURHOR HE ONH HA RARE OR KCRHOORONOR ORAN ARC ACAROR NERO NON CORRIGER RCA RUE CREER KE 
JX* SERT À EVITER LE CUMUL DE LA BASE DE CONNAISSANCES EN CAS D'ECHEC #/ 
LKR XK IORORONK AH HO HOUR RHORONHKKOK AR KR ROCK HORONOR OR HA ARNO KO ROHRRON RE NERCR AE ONCE ARC RO AE HERAU R OCR RE 


effacer base if est dans(Robjet,Lieu), retract(est dans(Robjet,Lieu)), fail. 
effacer _base if peut _&8tre_pris(Objet), retract{(peut être pris(Objet)), fail. 
effacer base if tient (Robot ,Objet), retract(tient (Robot, Objet)), fail. 
effacer _base, 


DK KR AONOKKACHOHOHOK AO HONOR HA RNOK AK AOK ARR NOK OK ARR KONOK AONHE HN OK AH KHAE AAC HERO OR AREA ACACE 
fx AFFICHAGE DE LA BASE AVANT ET APRES TOUTE COMMANDE DE ROBOT 94 
LRXK KO HOK AK HCHOK KO ANR AK HO HONOR OCR NOR KR AOKHOKOKOA ARR ROCK HRK CHOK HARAS AO OA A HO 


afficher base 1f nl, est _ dans (Robjet,Lieu), 

write (Robjet,'" est dans ‘" Lieu), nl, fail. 
afficher base 1f nl, peut être pris(Objet), 

write (Objet, ," peut étre pris"), nl, fail. 
afficher base if nl, tient (Robot, Objet), 

write (Robot," tient ",Objet), nl, fail. 
afficher base. 


LKROROKHOROKOHOR AO ON HORMONE OKON RH HR NOK HROKONHHOKON RO RON RHONE HERO HEROHORN HORAIRE CARO CE 
fx INITIALISATION AVEC CONSULTATION DE LA BASE SUR DISQUE 94 
LKXK AIO HONRR AK OK AOR HOKOK HAN HORK HONOR ROM KOROH HR HORK YORK HRK AK HOK HER H OK HE RCHHRRORORN OR RIOE 


init if effacer base, fenêtres, consult (''mabase.dba"). 


PAK KA KIOROR AK AORHON HR HOROHORHOK HONOR HERO ORAN HER HERO OKON HONOR OR ORCH HOR ORNE 


Æ: DEROULEMENT DU PROGRAMME x/ 
LA KO AOIOIONORAKHORK AOKRK NH HRK AH HOHR OA HORMONE RON A HOMOK HRK HE HOK HR HERO OH HR ROEKCK 


run if shiftwindow(1), clearwindow, afficher base, 
shiftwindow(2), clearwindow, menu(Touche), 
shiftwindow(4), clearwindow, action(Touche), 
shiftwindow(2), clearwindow, afficher _ base, 
shiftwindow(4), cursor (5,56), beep, write (APPUYER SUR UNE TOUCHE"), 
cursor (6,60), writeC'POUR CONTINUER"), readchar( ), 
clearwindow, run. 


LA KROROHON HER A AR IHR AORORRORORO ROR HERROROHROROHORORCH AOR HEAR KE ON ROMEO ORAN AR ACC 
/%x MENU x/ 
LXXKKOHONONKOKOKOKÏOKK OK KOKOK OK HOKKOKOKOK OK HOKHOKOKKONOK HOK OK OK OKOKOKOKKOKKOKOKKOKOKOKOKOKOKOKHOKONKOK OK KOKONOKOHKOK OK A 


menu(Choix) if shiftwindow(3), clearwindow, 


write ("1.0Ordonner à un robot de prendre un objet"), nl, . 
© 7 write("2.Ordonner à un robot de mettre un objet dans un lieu),n1, 
write ("3.Sauvegarder la si- tuation actuelle"), nl, 


write("4.Quitter"), nl, nl, 
write (‘Entrez votre choix "), readint (Choix). 


LAKKOKOK KOKK AH KOKOKOKON AH KR HRK OO HOKOK HR RH HOKAOKORHONOK KO NOK OHOKROK AH AOH HR HOKA HE RORCKAONH AO HCRIOHCK 
ZX ACTIONS A REALISER SELON LE CHOIX DU MENU X/ 
LE KOR KO KO KE RH HONOR OKON HO ACKONKOHOR HOKOKONRORKHHOKOKKCROROKOKKORHAOKKCKHOROK HR KR AUHEHOKUROKOK AH RCACHCHAORCHOR AIO 


action(1) if write (‘De quel robot s'agit-il ? "), readln(Robot), ni, 
write (‘Quel objet doit-il prendre 7? "),readln(Objet), ni, 
cherche (Robot,Objat), !, 

action(2) if write(’De quel robot s'agit-il ? "), readln(Robot), nl, 
write("Quel est l'objet à placer ? "), readin(Objet), nl, 
write(''Quel est le lieu de destination ? ‘'), readin(Lieu), nl, 
déplace (Robot, ,Objet,Lieu), !. 

action(3) if save (''mabase.dba'"), !. 

action( _) 1f exit. 
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DR ROUE HE HAE AO HEAR AA ARR ACHE HUEHHEHCHERONEROHNOOANEO HOROO OO  OK 
EXEMPLE DE BASE DE CONNAISSANCES INITIALE SAUVEE SOUS ‘"mabase. dba" 


k LES DEUX ROBOTS S'APPELLENT "tic" et "tac" 
DRAORAOR A ARE HR AAC HER AA RH ROCHE OGC OO AE AO HONOR OO OO ANR 


est danst''tic" "cuisine" ) 

est danst'tac",'"cave) 

est danst"vin",'"cave") 

est dans("“couteau" ,'""cuisine") 
est dans(''verre",'"cave") 

est dans (“miroir",'"chambre") 


peut _étre _pris("verre") 
peut être pris C'vin") 
peut être _pris("miroir") 


peut_être _pris('couteau) 


suite de La page 16 


- celles consacrant ON des articles au FORTH: 
MICRO-SYSTEMES, SOFT et MICRO, AMSTRAD MAGAZINE (devenu 
ANSMAG), DrDOBB'S JOURNAL, THEORIC, THEOPHILE (devenu THED 
puis TE0), CHIP, 


- celles dont Les articles font mention de FORTH, de 5e5 
applications. 


fh, dons il y a des revues qui ignorent superbement 
FORTA (L'OI, SVM pour sale Comme Le dit si bien Le Pr 
CHORON: qu'ils cr... btlà tes petits points c'est pour 
L'ambiguité, celle qui a valu La porte à M.POLAC et La 
ATEN de droit de réponse, L'émission qui faisait La 
meilleure audience Le samedi après 22h30; come Le dit Hr 
BOUYGUES, on ne change pas une AE ui UE Au fait, 
qui construit Le tunnel sous La Manche?) 


Plus sérieusement: it est très difficile de récoiter toutes 


les références concernant FORTH parues dans toutes Les 


revues. Si eu Un a Le courage de Le faire, on Les 
publiera très certainenent. 


Concernant Les photocopies d'articles, c'est toujours un 
peu délicat, car 1l y à Le problème du copyright, problème 
RE RTE LE avec Le titre si La revue n’est plus diffusée 
(MICRO-STRAD, MICRO-TOM, LIST, etc...). Mais Le contenu de 
de IUOURS est-il encore d'actualité CFORTH pour Z2X81, 
of...)? 


L'idéal est encore de faire nous-nême L'actualité: FRE 
TURBO-FORTH, FORTHLOG IT, fBASE, BLAISE (Le Langage PASCAL 
écrit en FORTH), et tout ce que vous ferez de vos dix 
doigts sur un clavier. 

LE SECRETAIRE 


PROPOSITION D'ARTICLE: 

Si je pps des trucs en FORTH (Unix ou VolksFORTH) sur 
ATARI ST, aurai-je une audience? Je cherche d'autres 
membres passionnés comme moi de musique assistée par 
ordinateur (pourquoi pas en FORTH), à l'aide! 


Mes micros: ACORN ATOM: en Forth 
BBC : tous Langages 
ATARI ST : tous langages 


Mes synthés: YAMAHA FB0‘ 
CASIO CZ 3000 
HYBRITEC MUSIC 500 


de programme sur BBC avec qe en AMPLE (version FORTH 
du - Music Complilway Language-) et je cherce 
actuellement Le moven de faire des images avec Le Voiks- 
Forth sur ATARI, mais je n'ai pas de doc sur Le HIER Le 
taxen et Perry apporte-t-il des solutions ou existe-t-il 
autre chose? 


Janvier 188 


Au fait: mon futur micro, ARCHIMEDE, vous savez, Le micro 
Le plus rapide et Le moins cher du monde (3x plus rapide 
RU DEXPRO 386 et 6x moins cher) Le tout peut-être en 


Michel OSSELIN - 92800 PUTEAUX 


REPONSE: Ouf, que d'activité. Oui, Les synthés intéressent 
certainement nos adhérents et vos trucs en Votks-FORTH 
aussi. Cette version est amenée à se répandre rapidement 
parmis nos adhérents depuis qu'elle a été francisée. 


Dès que vous aurez votre ARCHIMEDE Sous La main, tenez- 
nous au courant de 5e5 capacités Logicielles (vitesses, 
Lars etc...) car La technologie RISC sera 
certainement LUE sur Les futurs systèmes. 
D'ailleurs FORTH n'est pas en retard avec sa puce NC 4016 
de NOVIX (mettez un VAX dans vatre PC...). 


Concernant Les images, VolksFORTH est certainement plus 
performant que F43 de Laxen et Perry, Avec un peu de 
patience (51 vous ne trouvez pas d'ici La), il y aura 
certainement un adhérent pour trouver Les réponses que 


VOUS VOUS POSEZ. 
LE SECRETAIRE 


ES 


FELICITATIONS: 


Je vous exprime mon très grand plaisir de Lire Les 2 
derniers numéros de JEDI, où il est question de TURBO- 
Forth qui nous Libtre des contraites des blocs d'édition, 
et des fonctions graphiques qui apportent une nouvelle 
dimension à F83. Vous avez vraiment donné un grand regain 
d'intérêt à notre estimé Langage. 


En utilisant Le PSET de ces fonctions et en utilisant La 
métode d'une table de SINUS (FORTH de SALMAN, TISSERAND et 
TOULOUT, ed Eyrolles, p174), j'ai constaté qu'un cercte 5e 
dessine RE a 1,5x plus vite qu'avec QuickBasic de 
MICROSOFT! Bien sûr, en n'utilisant aussi que PSET et non 


CIRCLE, dans QuickBasic. 
Luan NGUYEN HUU - 75014 PARIS 
REPONSE: Merci de votre intérêt pour TURBO-Forth. Mais 
nous ne nous arréterons pas La: bientôt il y aura des 
routines d'auto-documentation pour TUR80-Forth: 
HELP mot) 
Exenple: 


HELP DUP affichera : 
DUP  n--nn Ouplique contenu du sommet de pile 


Ceci pour tout Le vocabulaire FORTH (plus de 500 mots à 
auto-documenter, soit plus de 35k de fichier ASCII en 
accès direct). Encore Un plus de JEDI pour TURBO-Forth. 


affichera un message d'information. 


——." 


